CPASS1   PASS 1 MAIN PROGRAM    
CPASS1      *** MUSIC V ***     
      COMMON P(100),IP(10),D(2000),IPDP
      DATA IPDP/0/
C***** PDP *****  IPDP WAS ADDED TO COMMON LIST IN PLACE OF ENTRY FEATURE.
99    FORMAT(' TYPE FILE NAME'/)
999   FORMAT(A5)
      TYPE 99
      ACCEPT 999,FLNM
      CALL IFILE(1,FLNM)
C***** ABOVE 5 LINES FOR PDP10 **********

C   INITIALIZATION
C   NOMINAL SAMPLING RATE.      
      D(4)=10000.0
C   ERROR FLAG    	
      IP(2)=0     
      P(2)=0.0    
CC     NWRITE = 2  
      NWRITE=20
C**** PDP DSK0=DEVICE 20 *******
CC    REWIND NWRITE      
CC    CALL READ0  
      CALL READ1  
C*********** PDP *************
C   MAIN LOOP     
 100  CALLREAD1   
      I1=P(1)     
      IF (I1.GE.1.AND.I1.LE.12) GO TO 103     
      IP(2)=1     
CC    WRITE (6,200)      
      PRINT 200
C********  PDP  *******
  200 FORMAT (' NON-EXISTENT OPCODE ON DATA STATEMENT')     
      GO TO 100     
 103  GO TO (1,1,1,1,5,6,7,1,9,1,1,12),I1
    1 CALL WRITE1 (NWRITE)      
      GO TO 100     
5     PRINT 110      
CC  5 WRITE (6,110)      
C********  PDP  *******
  110 FORMAT (' END OF SECTION IN PASS 1')    
      GO TO 1
    6 CALL WRITE1 (NWRITE)      
CC    WRITE (6,111)      
      PRINT 111      
C********  PDP  *******
  111 FORMAT (' END OF PASS I') 
      IF(IP(2).EQ.1) CALL HARVEY
      CALL EXIT   
C   SET VARIABLES IN PASS 1     
 7    I2=P(3)     
      I3=I2+IP(1)-4      
      DO 104I4=I2,I3      
  104 D(I4)=P(I4-I2+4)   
      GO TO 100     
 9    I6=P(3)     
      IF (I6.GE.1.AND.I6.LE.5) GO TO 107      
      IP(2)=1     
CC    WRITE (6,201)      
      PRINT 201      
C********  PDP  *******
  201 FORMAT (' NON-EXISTENT PLF SUBROUTINE CALLED') 
      GO TO 100     
   12 CALL WRITE1 (NWRITE)      
      GO TO 7
 107  GO TO (21,22,23,24,25),I6   
 21   CALLPLF1    
      GO TO 100     
 22   CALLPLF2    
      GO TO 100     
 23   CALLPLF3    
      GO TO 100     
 24   CALLPLF4    
      GO TO 100     
 25   CALLPLF5    
      GO TO 100     
      END  
CWRIT1     PASS 1 DATA-WRITING ROUTINE 
C    *** MUSIC V ***     
      SUBROUTINEWRITE1(N)
      COMMON P(100),IP(10)      
      K=IP(1)     
      WRITE(N )K,(P(J),J=1,K)   
      RETURN      
      END  
      SUBROUTINE PLF     
      COMMON P(100),IP(10),D(2000)     
CC    ENTRY PLF1  
CC    ENTRY PLF2  
CC    ENTRY PLF3  
CC    ENTRY PLF4  
CC    ENTRY PLF5  
      END  
CERRO1     GENERAL ERROR ROUTINE
C    *** MUSIC V ***     
      SUBROUTINEERROR(I) 
      PRINT100,I  
 100  FORMAT(13HERROR OF TYPEI5)
      RETURN      
      END  
      SUBROUTINE HARVEY  
CC    WRITE (6,1) 
      PRINT  1  
C********  PDP  *******
    1 FORMAT (' WHERE IS HARVEY')      
      CALL EXIT   
      END  
      SUBROUTINEMOVR(IBCD,LA,LB)
      DIMENSION IBCD(300)
      DO  1 J=LA,LB
CC  1 IBCD(J)=15-(-IBCD(J))/16777216   
C******* PDP *******
1     IBCD(J)=IBCD(J)/536870912-48
2     DUMMY=0
C  TO SET BREAKPOINT.
      RETURN      
      END